﻿Imports extremo

Public Class Deportes
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        
    End Sub

    Protected Sub btnBuscar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBuscar.Click

        Dim negocio = New DeporteNegocio

        Dim lista = negocio.buscarPorNombre(Me.txtNombre.Text)

        dgvCategorias.DataSource = lista
        dgvCategorias.DataBind()

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Response.Redirect("~/NuevoDeporte.aspx", False)

    End Sub

    Protected Sub Home_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Home.Click
        Response.Redirect("Home.aspx", True)
    End Sub
End Class